home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / inrstex / inrstex / eqtag.tex < prev    next >
Text File  |  1991-09-08  |  2KB  |  45 lines
  1. %-*-tex-*-
  2. % Copyright Michael J. Ferguson, INRS-Telecommunications
  3. % All rights reserved. 
  4.  
  5. % ========== Equation Tags ===========
  6. % Since equation numbering plays a big part in scientific documentation
  7. % a special set of tag generation forms were produced for this case. 
  8.  
  9.  
  10. % Special versions of autoeqnum to insert automatically insert
  11. % parentheses around the equation number.
  12. %  \aneq            no argument, no tag generated. This version
  13. %                   does nothing if autonumbering is off.
  14. %  \aneqtag{<tag>}  tag generated. This version inserts the argument
  15. %                   inside parentheses if autoreferencing is off.
  16.  
  17. % These special forms have a \eqnumfont ... as there is no other way 
  18. % to get the information inside. These are defined in the documentfonts.
  19.  
  20. %\let\eqnumfont=\tenrm ... for tenpoint family 
  21.  
  22. \def\aneq{\a@utotag{}{\eqnum}{\eqtagrefformat
  23.         }{\e@qno \eqnumfont (\eqtagrefformat)}{}}
  24. \def\aneqtag#1{\a@utotag{#1}{\eqnum}{\eqtagrefformat
  25.         }{\e@qno\eqnumfont (\eqtagrefformat)}{\e@qno\eqnumfont (#1)}}
  26.  
  27. %===== for full left or right equation numbering and to allow ====
  28. % \aneq and \aneqtag to work
  29.  
  30. \let\e@qql = \eqalignno
  31. \let\l@eqql= \leqalignno
  32. \def\e@qalignno{\let\e@qno=\relax \e@qql}
  33. \def\l@eqalignno{\let\e@qno=\relax  \l@eqql}
  34. %redefines \eqalignno and \leqalignno  --- normal unset mode
  35. \let\eqalignno = \e@qalignno
  36. \let\leqalignno = \l@eqalignno
  37.  
  38. \let\e@qno = \eqno
  39. %---- left/right equation numbering ----
  40. \def\leftequationnumbering{\let\eqalignno = \l@eqalignno
  41.                          \let\leqalignno = \l@eqalignno
  42.                          \let\e@qno = \leqno}
  43. \def\rightequationnumbering{\let\leqalignno = \e@qalignno
  44.                           \let\eqalignno = \e@qalignno
  45.                          \let\e@qno = \eqno}